home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C128Toolkit / SPECTRM.SFX / 40 x 25 data (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1992-09-01  |  201 b   |  11 lines
  1. 7 DIM LK(1000)
  2. 8 FOR RT=1024TO2023:POKERT,160:NEXTRT
  3. 10 NM$="FILENAME"
  4. 12 OPEN 6,8,6,"0:"+NM$+",S,R"
  5. 14 FOR QA=55296 TO 56295
  6. 16 INPUT#6,LK(QA-55295):NEXTQA
  7. 17 CLOSE 6
  8. 18 FOR WE=55296TO56295
  9. 19 POKE WE,LK(WE-55295)
  10. 20 NEXT
  11.